home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / kzipv0_9.zip / install.cmd next >
OS/2 REXX Batch file  |  1996-06-26  |  988b  |  36 lines
  1. /*  ---------------------------------------------------------------------------------
  2.  *  K.A.Ash (c) June 17th 1996
  3.  *
  4.  *  install script for KZipper
  5.  *  --------------------------------------------------------------------------------- */
  6.  
  7. signal on halt name SignalHandler       /* Exception handler */
  8.  
  9. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11.  
  12. FileName = SysSearchPath('PATH', 'KZipper.exe')
  13. if FileName = '' then
  14. do
  15.    say 'Error: Cannot find KZipper.exe in PATH directories.'
  16.    exit
  17. end
  18.  
  19. rc= SysCreateObject('WPProgram',,
  20.                      'KZipper', '<WP_DESKTOP>',,
  21. 'TITLE=KZipper;OBJECTID=<KZipper>;STARTUPDIR='directory()';ASSOCFILTER=*.ZIP;ASSOCTYPE=Zip Archive;EXENAME='FileName ,,
  22.                      'u' )
  23.  
  24. if rc=0 then
  25.   say "Sorry, couldn't create the KZipper program object"
  26. else do
  27.   say "KZipper successfully installed"
  28. end
  29.  
  30. exit
  31.  
  32. SignalHandler:
  33.   call SysCls
  34.   say "error - exiting..."
  35.   exit
  36.